home *** CD-ROM | disk | FTP | other *** search
/ Amiga Games: Greatest Hits 1996 / Amiga Games: Greatest Hits 1996.iso / archive / spiele / publicdomain / battleduel.lha / BattleDuel / BattleDuel_Install < prev    next >
Text File  |  1996-08-02  |  8KB  |  263 lines
  1. ;======================================================================
  2. ;
  3. ; BattleDuel Install Script $VER: Install 1.5.42 (2.8.96)
  4. ;
  5. ; Copyright © 1995-1996 Jochen Terstiege
  6. ;
  7. ;======================================================================
  8. ;
  9. ;======================================================================
  10. ; language strings
  11. ;======================================================================
  12.  
  13. (if (= @language "deutsch")
  14.     (
  15.         (set #hello "\nWillkommen zur BattleDuel Installation\nund Update\n\n\Version 1.5.42")
  16.         (set #update (cat "Sie haben BattleDuel auf ihrem System schon installiert. "
  17.                                 "Alle alten Dateien werden gelöscht und die neuen werden installiert."))
  18.         (set #select_destination "Bitte wählen Sie aus, wo das BattleDuel-Verzeichnis erzeugt werden soll")
  19.         (set #destination_help (cat "Wählen Sie eine Partition oder ein Verzeichnis aus. "
  20.                                             "Ein Verzeichnis mit dem Namen 'BattleDuel' wird dort erzeugt."))
  21.         (set #install_to1 "\nBattleDuel nach \"")
  22.         (set #install_to2 "\" installieren?")
  23.         (set #startup "Ergänze user-startup")
  24.         (set #startup_help "Dieser Assign wird von BattleDuel gebraucht")
  25.         (set #have_fun "Viel Spaß mit BattleDuel...")
  26.         (set #which_chipset "Welchen Chipsatz haben Sie?")
  27.         (set #chipset_help (cat "Wenn Sie einen Amiga 4000, A1200 oder eine Grafikkarte "
  28.                                         "besitzen, dann müssen Sie AGA wählen, ansonsten ECS!"))
  29.         (set #want_mwb_icons "Wollen Sie MagicWB Icons installieren?")
  30.         (set #mwb_icons (cat "MagicWB ist ein Set von Icons mit 8 Farben.\n"
  31.                                     "MagicWB ist © by Martin Huttenloher"))
  32.         (set #error_extract (cat "Fehler beim Entpacken der Datei: "))
  33.     )
  34.     (
  35.         (set #hello "\nWelcome to the BattleDuel Installation\nand update\n\n\Version 1.5.42")
  36.         (set #update (cat "You already have BattleDuel installed on your system. "
  37.                                 "All old files will be deleted and the new ones installed."))
  38.         (set #select_destination "Select the location to install the BattleDuel directory")
  39.         (set #destination_help (cat "Choose a destination partition or directory. "
  40.                                             "A directory called 'BattleDuel' will be created there."))
  41.         (set #install_to1 "\nInstall BattleDuel to \"")
  42.         (set #install_to2 "\" ?")
  43.         (set #startup "Adding assign to user-startup")
  44.         (set #startup_help "This assign is needed by BattleDuel!")
  45.         (set #have_fun "Have fun with BattleDuel...")
  46.         (set #which_chipset "Which Chipset do you have?")
  47.         (set #chipset_help (cat "If you own an Amiga 4000, A1200 or a graphicboard then "
  48.                                         "you must select AGA, otherwise you must select ECS!"))
  49.         (set #want_mwb_icons "Do you want to install MagicWB icons?")
  50.         (set #mwb_icons (cat "MagicWB is a set of nice icons with 8 colors.\n"
  51.                                     "MagicWB is © by Martin Huttenloher"))
  52.         (set #error_extract (cat "Error while extracting from file: "))
  53.     )
  54. )
  55.  
  56. ;======================================================================
  57. ; variables
  58. ;======================================================================
  59.  
  60. (set inputdir    (pathonly @icon))        ; from where we were started
  61. (set bd_drawer "BattleDuel")            ; destination drawer name
  62. (set bd_dest    (getassign "BD"))        ; default destination
  63.  
  64. ;======================================================================
  65. ; welcome
  66. ;======================================================================
  67.  
  68. (message #hello)
  69.  
  70. ;======================================================================
  71. ; already there?
  72. ;======================================================================
  73.  
  74. (if (<> bd_dest "")
  75.     (; update
  76.         (set update true)
  77.         (message #update)
  78.     )
  79.     (; first installation
  80.         (set update false)
  81.         (set bd_dest
  82.             (askdir
  83.                 (prompt #select_destination)
  84.                 (default "Work:")
  85.                 (help #destination_help)
  86.             )
  87.         )
  88.     )
  89. )
  90. (set @default-dest bd_dest)
  91.  
  92. ;======================================================================
  93. ; delete old files
  94. ;======================================================================
  95.  
  96. ;(if (= update true)
  97. ;    (
  98. ;        (set del_pattern "#?")
  99. ;        (foreach bd_dest del_pattern
  100. ;            (delete (tackon bd_dest @each-name))
  101. ;        )
  102. ;    )
  103. ;)
  104.  
  105. ;======================================================================
  106. ; make directory
  107. ;======================================================================
  108.  
  109. (if (= update false)
  110.     (
  111.         (set bd_dest (tackon bd_dest bd_drawer))
  112.         (message (cat #install_to1 bd_dest #install_to2))
  113.         (makedir bd_dest (infos))
  114.         (makeassign "BD" bd_dest)
  115.     )
  116. )
  117.  
  118. ;======================================================================
  119. ; ask for chipset
  120. ;======================================================================
  121.  
  122. (set aga
  123.     (askbool
  124.         (prompt #which_chipset)
  125.         (help #chipset_help)
  126.         (choices "ECS" "AGA/Graphicboard")
  127.         (default 1)
  128.     )
  129. )
  130.  
  131. ;======================================================================
  132. ; extract files
  133. ;======================================================================
  134.  
  135. (procedure extract
  136.     (set lha (cat "decrunch -a -m -q x \"" (tackon inputdir current) ".lha\" * " dir_dest))
  137.     (working "Installing " current)
  138.     (if (<> (run lha) 0)
  139.         (message #error_extract current)
  140.     )
  141. ) 
  142.  
  143. ;======================================================================
  144. ; patch landscapes with balloon (registered v1.03 and v1.4.80)
  145. ;======================================================================
  146.  
  147. (if (and (= update true)
  148.             (    (or (exists ("BD:BattleDuel.key"))
  149.                 (exists ("devs:BattleDuel.key"))
  150.                 (exists ("s:BattleDuel.key"))    )
  151.     ))
  152.     (
  153.         (if (= (getsize "BD:BattleDuel") 96424)
  154.             (if (= aga 1)
  155.                 ( (set current "Landscapes_Patch3_ECS") (set dir_dest "RAM:") (extract) (execute "RAM:patch") )
  156.                 ( (set current "Landscapes_Patch3_AGA") (set dir_dest "RAM:") (extract) (execute "RAM:patch") )
  157.             )
  158.         )
  159.         (if (= (getsize "BD:BattleDuel") 131236)
  160.             (if (= aga 1)
  161.                 ( (set current "Landscapes_Patch4_ECS") (set dir_dest "RAM:") (extract) (execute "RAM:patch") )
  162.                 ( (set current "Landscapes_Patch4_AGA") (set dir_dest "RAM:") (extract) (execute "RAM:patch") )
  163.             )
  164.         )
  165.     )
  166. )
  167.  
  168. (complete 0)
  169. (set current "Program")                (set dir_dest "BD:") (extract)
  170. (complete 10)
  171. (if (= aga 1)
  172.     ( (set current "Gfx_ECS")           (set dir_dest "BD:Gfx/ECS/") (extract) )
  173.     ( (set current "Gfx_AGA")           (set dir_dest "BD:Gfx/AGA/") (extract) )
  174. )
  175. (complete 20)
  176. (if (= update false)
  177. (
  178.     (if (= aga 1)
  179.         ( (set current "Landscapes_ECS") (set dir_dest "BD:Landscapes/ECS/") (extract) )
  180.         ( (set current "Landscapes_AGA") (set dir_dest "BD:Landscapes/AGA/") (extract) )
  181.     )
  182. ) )
  183. (complete 30)
  184. (if (or (exists ("BD:BattleDuel.key"))
  185.         (exists ("devs:BattleDuel.key"))
  186.         (exists ("s:BattleDuel.key"))
  187.     )
  188.     (if (= aga 1)
  189.         ( (set current "Gfx_ECS_Reg")    (set dir_dest "BD:Gfx/ECS/") (extract) )
  190.         ( (set current "Gfx_AGA_Reg")    (set dir_dest "BD:Gfx/AGA/") (extract) )
  191.      )
  192. )
  193. (complete 40)
  194. (set current "Mods")                   (set dir_dest "BD:Mods/") (extract)
  195. (complete 50)
  196. (set current "Settings")               (set dir_dest "BD:Settings/") (extract)
  197. (complete 60)
  198.  
  199. ;======================================================================
  200. ; copy selected language
  201. ;======================================================================
  202.  
  203. (if (= @language "deutsch")
  204.     ( (set current "Deutsch") (set dir_dest "BD:") (extract) )
  205.     ( (set current "English") (set dir_dest "BD:") (extract) )
  206. )
  207. (complete 70)
  208.  
  209. ;======================================================================
  210. ; add MagicWB icons?
  211. ;======================================================================
  212.  
  213. (set mwb
  214.     (askbool
  215.         (prompt #want_mwb_icons)
  216.         (help #mwb_icons)
  217.         (choices "Yes" "No")
  218.         (default 1)
  219.     )
  220. )
  221.  
  222. (if (= mwb 1)
  223.     ( (set current "MWB_Icons") (set dir_dest "BD:") (extract) )
  224.     ( (set current "Icons") (set dir_dest "BD:") (extract) )
  225. )
  226. (complete 80)
  227.  
  228. ;======================================================================
  229. ; set tooltypes
  230. ;======================================================================
  231.  
  232. (if (= aga 1)
  233.     (tooltype
  234.         (dest "BD:BattleDuel")
  235.         (settooltype "DISPLAY_ID"   "0x0")
  236.         (settooltype "DISPLAY_TYPE" "ECS")
  237.     )
  238.     (tooltype
  239.         (dest "BD:BattleDuel")
  240.         (settooltype "DISPLAY_ID"   "0x0")
  241.         (settooltype "DISPLAY_TYPE" "AGA")
  242.     )
  243. )
  244. (complete 90)
  245.  
  246. ;======================================================================
  247. ; modify user-startup
  248. ;======================================================================
  249.  
  250. (if (= update false)
  251.     (
  252.         (startup "BattleDuel"
  253.             (prompt #startup)
  254.             (command (cat "Assign >NIL: BD: " bd_dest))
  255.             (help #startup_help)
  256.         )
  257.     )
  258. )
  259.  
  260. (complete 100)
  261.  
  262. (exit #have_fun)
  263.